0 GOSUB720:CLR
10 DIMA$(16):DIME(16):DIMC(5,5)
20 CT=1:POKE 53280,.:POKE53281,.
30 PRINT"[147][158]              TINTED TILES"
31 PRINT"            BY  JOEL EPSTEIN"
32 PRINT"          P [154]- PLAY TINTED TILES"
34 PRINT"          Q [154]- QUIT"
36 PRINT"          PRESS P [154]OR Q[154]."
37 A=PEEK(203):IFA<>41ANDA<>62THEN37
38 IFA=62THENGOSUB60000:GOTO36
39 PRINT"    PLEASE WAIT -- SCRAMBLING TILES"
40 A$(16)="[144]   [157][157][157]   [157][157][157]   [145][145]"
50 A$(1)="   [157][157][157] A [157][157][157]   [145][145]"
60 A$(2)="   [157][157][157] B [157][157][157]   [145][145]"
70 A$(3)="[159]   [157][157][157] C [157][157][157]   [145][145]"
80 A$(4)="[156]   [157][157][157] D [157][157][157]   [145][145]"
90 A$(5)="   [157][157][157] E [157][157][157]   [145][145]"
100 A$(6)="   [157][157][157] F [157][157][157]   [145][145]"
110 A$(7)="[158]   [157][157][157] G [157][157][157]   [145][145]"
120 A$(8)="[129]   [157][157][157] H [157][157][157]   [145][145]"
130 A$(9)="[149]   [157][157][157] I [157][157][157]   [145][145]"
140 A$(10)="[150]   [157][157][157] J [157][157][157]   [145][145]"
150 A$(11)="[151]   [157][157][157] K [157][157][157]   [145][145]"
160 A$(12)="[152]   [157][157][157] L [157][157][157]   [145][145]"
170 A$(13)="[153]   [157][157][157] M [157][157][157]   [145][145]"
180 A$(14)="[154]   [157][157][157] N [157][157][157]   [145][145]"
190 A$(15)="[155]   [157][157][157] O [157][157][157]   [145][145]"
195 FORA=1TO15:E(A)=.:NEXT:Z=0
200 FORA=1TO4:FORB=1TO4
210 C(A,B)=INT(RND(0)*16)
220 FORD=0TO15
230 IF E(D)=C(A,B) THEN 210
240 NEXT D
250 E(Z)=C(A,B):Z=Z+1
260 IF Z=15 THEN GOTO280
270 NEXTB:NEXTA
280 PRINT
290 C(4,4)=16
300 POKE 53280,6:PRINT"[147][158]              TINTED TILES"
305 PRINT"            BY  JOEL EPSTEIN"
306 PRINT" PRESS LETTER OF TILE YOU WISH TO MOVE."
307 PRINT"[154]            PRESS Q [154]TO QUIT."
310 PRINT"";
320 FORA=1TO4:FORB=1TO4
330 G=C(A,B):PRINTA$(G);
340 NEXTB:PRINT:PRINT:PRINT:PRINT"";:NEXTA:POKE198,.
350 PRINT"          [154]NUMBER OF MOVES:"CT-1
360 GET QQ$:IFQQ$=""THEN360
370 IFQQ$="Q"ORQQ$="[209]"THENGOSUB60100:IF(OK)THEN20
400 H=(ASC(QQ$)-64)
410 IF H<0 OR H>15 THEN GOTO 350
420 FORA=1TO4:FORB=1TO4
430 IF C(A,B)=H THEN GOTO 460
440 NEXTB:NEXTA
450 GOTO350
460 IFC(A+1,B)=16THENC(A+1,B)=H:C(A,B)=16:GOTO510
470 IFC(A-1,B)=16THENC(A-1,B)=H:C(A,B)=16:GOTO510
480 IFC(A,B+1)=16THENC(A,B+1)=H:C(A,B)=16:GOTO510
490 IFC(A,B-1)=16THENC(A,B-1)=H:C(A,B)=16:GOTO510
500 GOTO350
510 PRINT"";
520 FORA=1TO4:FORB=1TO4
530 G=C(A,B):PRINTA$(G);
540 NEXTB:PRINT:PRINT:PRINT:PRINT"";:NEXTA
550 CT=CT+1
560 JJ=1
570 FORA=1TO4:FORB=1TO4
580 IFC(A,B)<>JJ THEN GOTO 350
590 JJ=JJ+1
600 NEXTB:NEXTA
610 PRINT"[154]   HOORAY!! YOU WON IN ONLY"CT-1"[154]MOVES"
630 PRINT"     [154]PRESS SPACE [154]TO RETURN TO MENU"
640 IFPEEK(203)<>60THEN640
650 GOTO20
690 FORA=1TO4:FORB=1TO4:C(A,B)=0:NEXTB:NEXTA
700 IF QQ$="*" THEN PRINT"SORRY, BUT YOU LOST":PRINT"IN";CT-1;"MOVES"
710 CT=1:FORXX=0TO15:E(XX)=0:NEXTXX:G=0:JJ=0:H=0:Z=0:FORF=1TO1500:NEXT:GOTO65535
720 POKE53280,14:POKE53281,14
730 PRINTCHR$(142)"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
740 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
750 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
760 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
770 PRINT"          LOADSTAR PRESENTS:"
780 PRINT"                               "
790 PRINT"             TINTED TILES       "
800 PRINT"                                "
810 PRINT"           BY  JOEL EPSTEIN     "
820 PRINT"                                "
830 PRINT"            COPYRIGHT 1987      "
840 PRINT"                                "
850 PRINT"                                "
860 PRINT"        PRESS SPACE TO CONTINUE"
870 IFPEEK(203)<>60THEN870
880 RETURN
60000 PRINT"[145]  [154]ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENEND
60050 LOAD"HELLO CONNECT",8
60100 PRINT"  [154]ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
60110 A=PEEK(203):IFA<>25ANDA<>39THEN60110
60120 OK=.:IFA=39THENPRINT"[145]            [154]PRESS Q[154] TO QUIT.          ":RETURN
60130 OK=1:RETURN